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Laplace CDF *> 
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LaplaceCDFdiff = Compile [(a, b, A}, Module [ 
<* Computes F[b r A] - F[a,A] where F is the 
(* John Kitchin, HP *) 

(* Underlying Laplace PDF L$ E)cp[-Aba [t] ) /2 , so scale factor = 1 *) 
<* Underlying Uniform is Uniform on [-A, A] *) 
(* so a is in units of the Scale Factor *) 
{r = *\ 

a = c*, 

t = e A f 

q>< 

u = t 2 ; 
q = 4 at; 
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Figure 4A 
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